#!/usr/bin/perl -w

use strict;
use FindBin;
use File::Spec;
use File::Basename;

my $currentDir = File::Spec->splitpath(__FILE__);
print("currentDir:" . $currentDir . "\n");

print "the directory of my script is: " . $FindBin::Bin . "\n";
print "the base name of my script is: " . $FindBin::Script . "\n";

my $path = File::Spec->catfile($FindBin::Bin, $FindBin::Script);
print "the canonical location of my script is: " . $path . "\n";
my $directory = dirname( $path );
print "parentDir:" . $directory . "\n";
